home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Demos / AppMaker™ 1.5 DEMO / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPT_304_zWindow < prev    next >
Encoding:
Text File  |  1992-04-08  |  1.4 KB  |  60 lines
  1. { %filename% -- window methods }
  2. { Created %date% %time% by AppMaker }
  3.  
  4. {    We recommend that you not modify this module and instead modify        }
  5. {    its subclass, %WindName%.  The 'z' prefix on this module marks%        %}
  6. {    a module which is likely to be regenerated by AppMaker after you    }
  7. {    make changes to the user interface.  The modules without the 'z'    }
  8. {    prefix will not be regenerated by AppMaker unless you delete them.    }
  9. {    Using a separate subclass to override the AppMaker-generated code    }
  10. {    lets you regenerate code without losing your hand-coded changes.    } 
  11.  
  12. Unit %unitname%;
  13. Interface
  14.  
  15. Uses
  16.     TCL,
  17.     AMCL,
  18.     %AppName%Intf;
  19.     
  20. {----------}
  21. Implementation
  22.  
  23. {----------}
  24. Procedure Z%WindName%.IZ%WindName%    (aSupervisor: CDirector);
  25. var
  26.     enclosure:            CView;
  27.     supervisor:            CBureaucrat;
  28.     aSizeBox:            CSizeBox;
  29. Begin
  30.     %if procID = 3200%
  31.         IWindow (%WindName%ID, true, gDesktop, aSupervisor);    {floating}
  32.     %else%
  33.         IWindow (%WindName%ID, false, gDesktop, aSupervisor);
  34.     %endif%
  35.     itsMainPane := nil;
  36.  
  37.     enclosure := self;
  38.     supervisor := self;
  39.     %for each item gen create%
  40.  
  41.     %if has growBox%
  42.         New (aSizeBox);
  43.         aSizeBox.ISizeBox (enclosure, supervisor);
  44.     %endif%
  45.     
  46. End; {I%WindName%}
  47.  
  48. %for each item gen zAuxiliaryMethod%
  49. {----------}
  50. Procedure Z%WindName%.DoCommand (theCommand: longint);
  51. Begin
  52.     case theCommand of
  53.         0:    ;
  54.         otherwise
  55.             inherited DoCommand (theCommand);
  56.     end; {case}
  57. End; {DoCommand}
  58.  
  59. End. {%unitname%}
  60.